Chip 1997 December/CHIPNET Aralık 1997.iso/oyun/elf.exe/ELF.EXE/0/RCDATA/TTRIGGERWIZARD1/TTRIGGERWIZARD1.txt

Text File | 1997-02-13 | 22KB | 801 lines

object TriggerWizard1: TTriggerWizard1
  Left = 191
  Top = 141
  BorderIcons = []
  BorderStyle = bsDialog
  Caption = 'Trigger wizard'
  ClientHeight = 338
  ClientWidth = 572
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  TextHeight = 13
  object Bevel1: TBevel
    Left = 108
    Top = 4
    Width = 5
    Height = 329
    Shape = bsLeftLine
  end
  object LastMsg1: TLabel
    Left = 0
    Top = 112
    Width = 105
    Height = 89
    Alignment = taCenter
    AutoSize = False
    Caption = 'Well done!'#13#13'Your trigger is now '#13'ready :-)'#13#13'Enjoy it!'
    Visible = False
  end
  object Warning: TLabel
    Left = 0
    Top = 208
    Width = 105
    Height = 101
    Alignment = taCenter
    AutoSize = False
    Caption =
      'UNREGISTERED USERS WILL HAVE TO COPY BY HAND THE RESULTS OF THIS' +
      ' WIZARD... SORRY :-)'
    Color = clBtnFace
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    Visible = False
  end
  object Label1: TLabel
    Left = 8
    Top = 80
    Width = 89
    Height = 177
    Alignment = taRightJustify
    AutoSize = False
    Caption =
      'The following steps will guide you through the creation of a new' +
      ' trigger.'#13'Answer every question and you'#39'll have your trigger rea' +
      'dy to use!'
  end
  object Notebook1: TNotebook
    Left = 116
    Top = 4
    Width = 453
    Height = 297
    PageIndex = 3
    TabOrder = 0
    object TPage
      Left = 0
      Top = 0
      Caption = 'Kind'
      object Label2: TLabel
        Left = 55
        Top = 12
        Width = 215
        Height = 13
        Caption = 'Choose the kind of trigger you want to create.'
      end
      object Label3: TLabel
        Left = 48
        Top = 212
        Width = 82
        Height = 20
        Caption = 'Warning!!!'
        Font.Color = clRed
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label4: TLabel
        Left = 136
        Top = 214
        Width = 298
        Height = 16
        Caption = 'Triggers running continuously may slow down ELF!'
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object EnhImage6: TEnhImage
        Left = 16
        Top = 3
        Width = 32
        Height = 32
        AutoSize = True
        Picture.Data = {<image000.bmp>}
        Transparent = True
      end
      object SomeText: TRadioButton
        Left = 12
        Top = 60
        Width = 153
        Height = 17
        Caption = 'activated by some text'
        Checked = True
        TabOrder = 0
        TabStop = True
      end
      object Continuous: TRadioButton
        Left = 12
        Top = 140
        Width = 125
        Height = 17
        Caption = 'running continuously'
        TabOrder = 1
      end
      object Memo1: TMemo
        Left = 48
        Top = 80
        Width = 397
        Height = 45
        Lines.Strings = (

            'Choose this option if you want to create a trigger activated by ' +
            'some text received '
          'from the MUD.'
          'This kind of trigger is the most useful.')
        TabOrder = 2
      end
      object Memo2: TMemo
        Left = 48
        Top = 160
        Width = 397
        Height = 45
        Lines.Strings = (

            'This is a special kind of trigger that will be activated every t' +
            'ime will be checked.'
          'In this way it keeps executing related commands.'

            'You can use this behaviour to update internal variables, timers ' +
            'and so on.')
        TabOrder = 3
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'ActivationText'
      object Label5: TLabel
        Left = 55
        Top = 12
        Width = 232
        Height = 13
        Caption = 'Specify a sample text that will activate the trigger.'
      end
      object Label6: TLabel
        Left = 24
        Top = 76
        Width = 421
        Height = 29
        AutoSize = False
        Caption =
          'The text you enter now must be a line that you can actually rece' +
          'ive from the MUD.'#13'For example:'
      end
      object Label7: TLabel
        Left = 62
        Top = 108
        Width = 145
        Height = 13
        Caption = ' [Elfred] tells you '#39'Hello boyz :-)'#39
      end
      object Label8: TLabel
        Left = 24
        Top = 192
        Width = 327
        Height = 13
        Caption =
          'If you want you can choose a line from those in the scroll-back ' +
          'buffer:'
      end
      object EnhImage9: TEnhImage
        Left = 8
        Top = 78
        Width = 10
        Height = 10
        AutoSize = True
        Picture.Data = {<image001.bmp>}
        Transparent = True
      end
      object EnhImage10: TEnhImage
        Left = 8
        Top = 194
        Width = 10
        Height = 10
        AutoSize = True
        Picture.Data = {<image002.bmp>}
        Transparent = True
      end
      object EnhImage7: TEnhImage
        Left = 16
        Top = 3
        Width = 32
        Height = 32
        AutoSize = True
        Picture.Data = {<image003.bmp>}
        Transparent = True
      end
      object Edit1: TEdit
        Left = 40
        Top = 148
        Width = 405
        Height = 21
        TabOrder = 0
        OnChange = Edit1Change
      end
      object BitBtn2: TBitBtn
        Left = 328
        Top = 187
        Width = 85
        Height = 25
        Caption = 'Browse...'
        TabOrder = 1
        OnClick = BitBtn2Click
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
          300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
          330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
          333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
          339977FF777777773377000BFB03333333337773FF733333333F333000333333
          3300333777333333337733333333333333003333333333333377333333333333
          333333333333333333FF33333333333330003333333333333777333333333333
          3000333333333333377733333333333333333333333333333333}
        NumGlyphs = 2
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Invariant'
      object Label9: TLabel
        Left = 139
        Top = 48
        Width = 175
        Height = 39
        Alignment = taCenter
        Caption =
          'Example:'#13'Text: "You are summoned by Elfred."'#13'The variable part w' +
          'ill be: "Elfred"'
      end
      object Label10: TLabel
        Left = 58
        Top = 12
        Width = 162
        Height = 13
        Caption = 'Select the variable part of the text.'
      end
      object Label11: TLabel
        Left = 8
        Top = 108
        Width = 70
        Height = 13
        Caption = '&Activation text:'
        FocusControl = Edit2
      end
      object Label12: TLabel
        Left = 122
        Top = 196
        Width = 209
        Height = 13
        Alignment = taCenter
        Caption = 'Variable text is shown with BOLD characters'
      end
      object PaintBox1: TPaintBox
        Left = 4
        Top = 216
        Width = 445
        Height = 73
        OnPaint = PaintBox1Paint
      end
      object EnhImage8: TEnhImage
        Left = 16
        Top = 3
        Width = 32
        Height = 32
        AutoSize = True
        Picture.Data = {<image004.bmp>}
        Transparent = True
      end
      object Edit2: TEdit
        Left = 16
        Top = 124
        Width = 429
        Height = 21
        ReadOnly = True
        TabOrder = 0
      end
      object BitBtn3: TBitBtn
        Left = 68
        Top = 151
        Width = 317
        Height = 25
        Caption = 'Click me to change the &status of selected text'
        TabOrder = 1
        OnClick = BitBtn3Click
        Glyph.Data = {
          68010000424D6801000000000000760000002800000012000000120000000100
          040000000000D800000000000000000000000000000000000000000000000000
          BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
          7777770000007777717777747777770000007777111777444777770000007771
          7177777474777700000077177777777777477700000071777000000077747700
          000071770788888807747700000017770F77777807774700000017770F777778
          07774700000017770F77777807774700000017770F7777780777470000001777
          0F77777807774700000071770FFFFFF707747700000071777000000077747700
          0000771777777777774777000000777171777774747777000000777711177744
          4777770000007777717777747777770000000000000000000000000000000000
          000000000000000000000000}
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Commands'
      object Label20: TLabel
        Left = 56
        Top = 12
        Width = 310
        Height = 13
        Caption = 'Write the commands to be executed when the trigger is activated.'
      end
      object Label21: TLabel
        Left = 24
        Top = 52
        Width = 417
        Height = 41
        AutoSize = False
        Caption =
          'Now you'#39'll be taken in the command editor to write the commands ' +
          'linked to this trigger.'#13'Such commands will be executed when the ' +
          'trigger is '#39'triggered'#39'.'
      end
      object Label22: TLabel
        Left = 24
        Top = 96
        Width = 417
        Height = 29
        AutoSize = False
        Caption =
          'You'#39'll be able to paste in easily the commands that you already ' +
          'sent to the mud.'
      end
      object Label23: TLabel
        Left = 24
        Top = 136
        Width = 417
        Height = 41
        AutoSize = False
        Caption =
          'A '#39'parameter wizard'#39' will allow you to easily use variable parts' +
          '.'#13'Simply double-click over one on the parameters shown in the up' +
          'per-left list box and the wizard will show up.'
      end
      object EnhImage1: TEnhImage
        Left = 16
        Top = 3
        Width = 32
        Height = 32
        AutoSize = True
        Picture.Data = {<image005.bmp>}
        Transparent = True
      end
      object EnhImage2: TEnhImage
        Left = 8
        Top = 54
        Width = 10
        Height = 10
        AutoSize = True
        Picture.Data = {<image006.bmp>}
        Transparent = True
      end
      object EnhImage3: TEnhImage
        Left = 8
        Top = 98
        Width = 10
        Height = 10
        AutoSize = True
        Picture.Data = {<image007.bmp>}
        Transparent = True
      end
      object EnhImage4: TEnhImage
        Left = 8
        Top = 138
        Width = 10
        Height = 10
        AutoSize = True
        Picture.Data = {<image008.bmp>}
        Transparent = True
      end
      object EditCommands: TBitBtn
        Left = 220
        Top = 220
        Width = 185
        Height = 25
        Caption = 'Press me to edit commands'
        TabOrder = 0
        OnClick = EditCommandsClick
        Glyph.Data = {
          66010000424D6601000000000000760000002800000014000000140000000100
          040000000000F000000000000000000000001000000010000000000000000000
          BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333300003333333333333333333300003333000333333333333300003333
          08803333333333330000333330F8033333333333000033333307803333333333
          00003333330F700333333333000033333330780380333333000033333300F700
          0803333300003333330F0F700780333300003333300F0FF70080333300003333
          30F0F0FF7078033300003333300F0F0F777703330000333330F0F07FF7770333
          00003333330F07FFFF770333000033333330FF7FFFF703330000333333330FFF
          FFF7033300003333333330F7FFFF703300003333333333000000003300003333
          33333333333333330000}
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Advanced'
      object Label13: TLabel
        Left = 58
        Top = 12
        Width = 89
        Height = 13
        Caption = 'Advanced options.'
      end
      object Label14: TLabel
        Left = 104
        Top = 140
        Width = 239
        Height = 13
        Caption = 'seconds before actually issuing related commands.'
      end
      object Label15: TLabel
        Left = 24
        Top = 140
        Width = 27
        Height = 13
        Caption = 'Delay'
      end
      object Label16: TLabel
        Left = 136
        Top = 52
        Width = 161
        Height = 13
        Caption = 'seconds between two activations.'
      end
      object Label17: TLabel
        Left = 24
        Top = 52
        Width = 59
        Height = 13
        Caption = 'Wait at least'
      end
      object Label18: TLabel
        Left = 75
        Top = 236
        Width = 44
        Height = 20
        Caption = 'Note:'
        Font.Color = clRed
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label19: TLabel
        Left = 123
        Top = 238
        Width = 279
        Height = 16
        Caption = 'generally you won'#39't modify these parameters :-)'
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object EnhImage11: TEnhImage
        Left = 8
        Top = 54
        Width = 10
        Height = 10
        AutoSize = True
        Picture.Data = {<image009.bmp>}
        Transparent = True
      end
      object EnhImage12: TEnhImage
        Left = 8
        Top = 142
        Width = 10
        Height = 10
        AutoSize = True
        Picture.Data = {<image010.bmp>}
        Transparent = True
      end
      object EnhImage5: TEnhImage
        Left = 16
        Top = 3
        Width = 32
        Height = 32
        AutoSize = True
        Picture.Data = {<image011.bmp>}
        Transparent = True
      end
      object Memo3: TMemo
        Left = 44
        Top = 76
        Width = 293
        Height = 29
        BorderStyle = bsNone
        Color = clBtnFace
        Lines.Strings = (
          'When the trigger will be activated, it won'#39't be activated again '
          'before this number of seconds has elapsed.')
        TabOrder = 0
      end
      object IntervalSecs: TMaskEdit
        Left = 92
        Top = 48
        Width = 37
        Height = 21
        Hint = 'Must be in range 0..9999'
        EditMask = '9999;0; '
        MaxLength = 4
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        Text = '0'
      end
      object Memo4: TMemo
        Left = 44
        Top = 164
        Width = 293
        Height = 45
        BorderStyle = bsNone
        Color = clBtnFace
        Lines.Strings = (
          'When the trigger is activated, the related commands will be '
          'executed after this number of seconds.'
          'Useful for simulating a human (slow :-)) behaviour.')
        TabOrder = 2
      end
      object DelaySecs: TMaskEdit
        Left = 60
        Top = 136
        Width = 37
        Height = 21
        Hint = 'Must be in range 0..9999'
        EditMask = '9999;0; '
        MaxLength = 4
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
        Text = '0'
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Result'
      object LABTrigger: TLabel
        Left = 8
        Top = 12
        Width = 33
        Height = 13
        Caption = '&Trigger'
        FocusControl = TrigTrig
      end
      object interval: TLabel
        Left = 8
        Top = 34
        Width = 140
        Height = 13
        Caption = '&Seconds between activations'
        FocusControl = MaskEdit1
      end
      object delay: TLabel
        Left = 248
        Top = 34
        Width = 101
        Height = 13
        Caption = '&Delay before activate'
        FocusControl = MaskEdit2
      end
      object LABCommand: TLabel
        Left = 8
        Top = 96
        Width = 52
        Height = 13
        Caption = 'Co&mmands'
        FocusControl = TrigComms
      end
      object TrigTrig: TEdit
        Left = 48
        Top = 8
        Width = 397
        Height = 21
        Hint = 'Trigger to be recognized'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
      end
      object MaskEdit1: TMaskEdit
        Left = 156
        Top = 32
        Width = 37
        Height = 21
        Hint = 'Must be in range 0..9999'
        EditMask = '9999;0; '
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxLength = 4
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        Text = '0'
      end
      object MaskEdit2: TMaskEdit
        Left = 356
        Top = 32
        Width = 37
        Height = 21
        Hint = 'Must be in range 0..9999'
        EditMask = '9999;0; '
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxLength = 4
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        Text = '0'
      end
      object CheckBox3: TCheckBox
        Left = 8
        Top = 56
        Width = 149
        Height = 17
        Caption = 'Check &complete lines'
        TabOrder = 3
      end
      object CheckBox2: TCheckBox
        Left = 8
        Top = 74
        Width = 137
        Height = 17
        Caption = '&Remove original line'
        TabOrder = 4
      end
      object CheckBox5: TCheckBox
        Left = 140
        Top = 56
        Width = 229
        Height = 17
        Caption = 'E&nable re-checking on the same line'
        TabOrder = 5
      end
      object CheckBox6: TCheckBox
        Left = 140
        Top = 74
        Width = 209
        Height = 17
        Caption = '&Last trigger to check if activated'
        TabOrder = 6
      end
      object TrigComms: TMemo
        Left = 64
        Top = 93
        Width = 381
        Height = 196
        Hint = 'Commands to execute when the trigger is recognized'
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'Fixedsys'
        Font.Style = []
        Lines.Strings = (
          '')
        MaxLength = 255
        ParentFont = False
        ParentShowHint = False
        ShowHint = False
        TabOrder = 7
        WordWrap = False
      end
    end
  end
  object BitBtn4: TBitBtn
    Left = 304
    Top = 308
    Width = 85
    Height = 25
    Caption = 'Back'
    Enabled = False
    TabOrder = 1
    Visible = False
    Glyph.Data = {
      4E010000424D4E01000000000000760000002800000012000000120000000100
      040000000000D800000000000000000000001000000010000000000000000000
      BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
      DDDDDD000000DDDDDDDDDDDDDDDDDD000000DDDDDDDDDDDDDDDDDD000000DDDD
      DDD00DDDDDDDDD000000DDDDDD0880DDDDDDDD000000DDDDDD0880DDDD00DD00
      0000DDDDDDD080DDD0880D000000DDDD00DD0DDDD0880D000000DDD0880DDDDD
      DD080D000000DD088880DDD00DD0DD000000D088880DDD0880DDDD000000D088
      80DDD08880DDDD000000D08880DD088880DDDD000000D0880DD088880DDDDD00
      0000DD00DDD088880DDDDD000000DDDDDDD08880DDDDDD000000DDDDDDDD000D
      DDDDDD000000DDDDDDDDDDDDDDDDDD000000}
    Style = bsNew
  end
  object GoOn: TBitBtn
    Left = 392
    Top = 308
    Width = 85
    Height = 25
    Caption = '&Go on'
    TabOrder = 2
    OnClick = GoOnClick
    Glyph.Data = {
      DE000000424DDE0000000000000076000000280000000D0000000D0000000100
      0400000000006800000000000000000000001000000010000000000000000000
      BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
      7000777707707777700077770070077770007777060060777000000006606607
      7000066666660660700006666666606600000666666606607000000006606607
      7000777706006077700077770070077770007777077077777000777777777777
      7000}
    Style = bsNew
  end
  object BitBtn1: TBitBtn
    Left = 480
    Top = 308
    Width = 85
    Height = 25
    TabOrder = 3
    Kind = bkCancel
    Style = bsNew
  end
  object FacePanel: TPanel
    Left = 13
    Top = 4
    Width = 78
    Height = 91
    BevelInner = bvLowered
    BorderWidth = 4
    Caption = 'FacePanel'
    TabOrder = 4
    Visible = False
    object FxImage2: TFxImage
      Left = 7
      Top = 7
      Width = 64
      Height = 77
      Effect = 35
      BoxWidth = 2
      AutoSize = True
      Picture.Data = {<image012.bmp>}
    end
  end
end